LABEL 00O0O0O0OPRIMEHO0175100CC LX OBJECT /RE AD; F I LE 30URCEF I LEsSyMBQi/ REPLACE; END* 



OBJECT /READ 
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pi 
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28l 



i:m, 
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BEGIN REAL 
X****** **** * 

COM WEN!* * 

* 

* 

* 
* 
* 



************************ 



* 
* 
* 



common; 

REPLACE/CANOt 3-70 

T.nixi-..asiOii/ab.7.Qo_.iuKR._xnL_.s.ifaT£rt helea.se. 

FILE ID« SYMBOL/REPLACE TaPE ID * SYMB0L2/F ILEOQO 
THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 

AND _I..S...._NHJ..„.,I.Q fl£_Ji££fiflJlliC£Jl*.-_U££nj- U.R ..£ I.5.C LO.SED 

EXCEPT IN ACCORDANCE KITH PROGRAM LICENSE UR UPON 
WRITTEN AUTHORIZATION OF ThE PATENT DIVISION OF 
B.URBlWfiJfcl& .C.IlRP.Q.RAlliJ.N./ P E IitUlI.*. MI CJ1.I.iiA.i\ 0&Z22. 



* 
* 
* 

* 
* 

* . 

* 

* 

*; 



COPYRIGHT (C) 1971, 1972 BURROUGHS CORPORATION 

_ AAl2MflA_ -AA.Z221&A-. A.A.3M6.5.Z 

DEFINE E0R=0&3 ,, 37«[i:43!5]#, HAxHANCES = 23#, LEFT AHRQ m = "<- "# ; 
ARRAY INBUFCOU03* GKPTKN$, F IL INX, REP INX CO I 3] * F ND INX [01 170J * 
,AR_R.AY_ J.BOUND*UBDUNDICtMAXRAfs|G£Sj; 
SAVE ARRAY ESP, WORKC 08 30] /OUTBUFC 6 » ilJJ 

BOOLEAN FOUND, BRAAK* PRNT, TEXT* QVERFLO* SEQChK, SFLG; 
F_I_LE IN OLO DISK SERI AL C 1 , 0, 0); 

FILE OUT NEW DISK SERIAL [ 20 * 600 J C 2, 10# 300* S AVE lj"i ~ "" 

INTEGER OLDSIZE, TOKENCOUNT, TUSCAN; 

REAL COLS, COLSLEFT, C 0U ^T ' ENDwQRD, ESPPTR, E«Raw* FLG, 

GRPCtiuNT, I, LREC, LIMIT, NF, NRaNGE's'/'n'l'mT ", NuM2", 

LINSIZ, PREVNF, PERLINE* RC, RECS12, SCANNED* SEC* STRTWORQ* 

- _.lK6lS*.^JJJJ$ENL£Mai.Hj.„T.QilOiFlB.#. 1X3.1 A La._ Ji It fc.2.* hit wA^bfiRJiPTRJ 

LABEL COPYTOEOF, ENDlLOOP, EXIT, FIMUl.I1, READIM SAVEEXIT, 

TOKENLOOP, WRITENEW; 
.%**. *.* *.*..* **.***•* .*,.*. * * * *.*.*.* +..*. * ***** * * * ********************************_**.* 
PROCEDURE TWX0UT(A'N*T)i VALUE N'T; REAL A,N,T; 

BEGIN COMMuNlCATE(-in; BRAAK « *B0ULEANC T ) J ENU; 
.. * * . * **..*.* * * *...*. * * * * * **_.*** *.**.* *_*.* .**.*.* *_* .**.** *_*_*. * ***f********* *_* A* ********** 

real stream procedure addresscaji 
begin si:«a; addressi=si; end; 

X************ *_** ********************* *_****** ****** ik * * * * * ************* 
RpL STREAM PRO c E DUR E " Tt c"cOnV( c f V ) T"v A LU e" Q c "f'vT 

begin susloc octv; Dis=LOC deccunv; usisBdec; end; 

X******************************* ************************************* 

STREAM PROCEDURE MOVEwdRDs"CN'A'"B)r VALUE N> 

BEGIN SIisa; di:sb; DS; = n wds; EnU; 
...?.** **************************** * *_* * * * * *** * *************************** 



REAL STREAM PROCEDURE"' OC7cOnV~C DECV'Ti 

BEGIN Sl»«DECV; 0Il*L0C OCTCONVi OS ** 8 OCT* END; 

******************************** *** ** **** ***************** *** ******** 

procedure ; bisKWAif ( i c'/areaU'wds"* addr); " ' ~~ 

value io,wds,addr; real io,nUs,addr; array area[uj; cqmmunicatec-s); 
x****************** * **** ** ** ** »********** * ****** ******•***•***••*** * * 

STRFAu PRnCFfliiRr FdrucG "/HmF. c-»bm"«G\: utmr FDSucr.! " 



E R R M SG ~{ B UF , ERR M~SG ) / VALUE ERRMSG; 



STREAM PROCEDURE ..„„„„,. ,„ w . , u.mr.--,, 8fli , us , _rm„.,», 

********************************************************************* 

BEGIN_ _ 

D i : = B UF ; D S 1 a 4L 1 1" M E R R t " ; S 1 1 = L C I R R MS <j T~ Si : * S i +~i V'D S : = 7C hR ; " 

DS:=LIT LEFTARROW; 

EjiD_._E_RMSGi 



X *********************************************** ********************* 
STREAM PROCEDURE NUMFOUNOC 0,NM) ; VALUE NM; 

-JL*j*JutJtLif-*-*..*_* ».**_* ** *** * * * ..,* .* ******************** ************************ 

BEGIN " 

Dn*0; DS«*29LIT"NUMBER OF ST«lNliS REPLACED s »; 

._ sh»lo.c._.nm; ps; a 6 dec; p n=ui-a; os»«7 fill; 

END STREAM PROCEDURE NUMFOUNO; 
X ***************** * * * ************************************************ 

STREAM P ROCE DURE REKMjMBERC HUF.«lREC U VA LUE LREC; 



oouioooo 

OOOlOlOG 
QQiUQUQ 
00010111 

00010112 

000 1Q I 11 

00010114 
00010115 

... .0X3010116 
00010117 
00010U8 

-Q.O.Q 1.0 .US. 

00010200 
00010300 

Q.Q0.10A0..Q 

00010500 
00010600 

.. .000107.0(1. 
00010800 

00010900 
0001100C 

oooi i iod 

00011200 

.Q..Q01120.Q 

0001HOO 
00011500 

***0001UOO 
000U700 

oooiieoo 

**.*aQ0il90Q. 
00012000 
00012100 

***00012200 

00612300 

00012400 

***OQ012500 
00012600 
00012700 

* * * 0_0_0 1 2.8 
b60i2900 
00013000 

*** 00013100 
00013200 
00013300 

***0QQ1340C 
00013500 

***00013600 
0001 3700 
00013800 
00013900 

OJ10JJ4ILOJL. 



***000H100 
00014200 

00014400 

000H500 
0001 4600 

00014700 
***00014800 
QQOM90Q- 



2< 

3 

4 



• • 






■" 



2 
3 
4 

5 
fi 
7 
8 
9 
111 

Il3l 
|4 



'17 

1,8 
'13 

K 

|22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

84 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



BEGI 

SJ 13 

Sl:« 
OS»s 

._ END 

X ****** 

STREAM 

..%*.*.*.*** 

BEGI 

Sit* 

QSt = 

DSI = 

END 
X****** 

"stream" 

X****** 
BEGI 
DIl* 
SFLG 
8(IF 
JUMP 
Slls 

_ 8(IF 

EXIT: 
DS«s 

.END 
******* 
REAL ST 

******* 
_____ 

Di:» 

HAS 



*******************-■***** 



************************************** 



N 

LUC LRLC;, D.I V *.B.UF/ D_S_L=aji 

buf; dii*buf; scif sc»" " 
8LIT" '♦; 

5J BEAM ..P_fifl££iUlfiL_fi£KJ!lilMB£ 

************************* 



PROCEDURE OUTFCRMATCOUTBU 
* * * * * **.**.**.* ************* 

N LQ C A L S vT " ~" ~"~ ~ 

INBUF; 2(5ll*Sl+36 
7 FILL; ALLaSj/J_DlL 
LIT " '•; S I «* 

STREAM PROCED 
************* 



it; D 

^__„ 

R.i 

** * * * 
F*INB 
***** 



_L_.r_ 

SI 



mm. D.S.: = Z Fl l.l; 

isSI+1 ELSE DSt*CHR); 



• ** 

UF) 

* * * 



****************************** 

; 

******** *.*.* *..**_.* __.*. *.*_* *.*.** *j.*j*_*jt. 



**0QCU5000 

oooisioo 

QJ_0J._>2QQ. 

00015300 

00015400 

_.fl_Q0135Q-Q 

**000i5600 

00015700 
*.*-Q0J.X5800 



); on* 

*sja___«i 



outbuf; svjsdi; osjswds; di»*sv; 

IF SCs" " THEN SHiSl* . ELSE D SI.. C HR.J 



00015900 

00016000 

-QM1 61 0Q 



INBUF) 2CDS»=36 ChR) 

ure outformat; 

* ** ********* ******** 

p RO c EDU R E T R U N C M S G ( U T B U F * S F L G * L R 

******************** 

AfiEt.„£XIIi _ 

LIT"** LINE M ; i>V;sU 

■ bchr; ol'^sv; ijs: = 7 

SpsSj + 1 ELSE Ob!=CH 

C; DUsSV; 0S:»7FitL 
SIJ*SI + 1 1LSE_DSJ»QH 



; ds«*9lit" "; 

****************************** 



************* 
N LOCAL SV; L 
outbuf; ds»s8 
(Si:*seq; DSt 

Sc= M M THEN 

out* to exit) 
lrec; dsisbde 

SC" " THEN 



EC'SEQ); VALUE SFLGi 
****************************** 



00016200 
00016300 

»«Q09JJfeAfl__ 



i; 

fill; si*«sv; di« s sv; 

hi!. _ _ __.._. 

; si: s sv; oisaSv; 
R); 



00016500 
**00016600 
___fl___Zi_L 



19LIT" TRUNCATED. "; 

.STREAM PR QC E DU RE ..I.RJJ.N CM S G i 

********************************* 

REAM PROCEDURE SETNUM(bUF'SE«*LRE 

*********** ******* * j* *_**_*_*__* *_* ***• » 



buf; dsj=lit" ••; tally:=i; 

U3.Sj5.Lll!!_*Jil_.T Al- L I ,i«2JU 



****************************** 

c#sflg*staR); value sflg#staR; 

****************************** 



000 
000 

_.. OOP 
000 

ooo 

OOO 

000 

ooo 

Q.QO 

**ooo 
ooo 

**00_0 



16800 
16900 

IZ ooo 

17100 
17200 
iliOJ) 
17400 
17500 
.176 OQ 

17700 
17800 
1790 



SVt*DU 

SFLG(SII*SeQ; DII»L0C STAR; dS»*8ChR; 
S 1 1 «_fi_C i DIJ =LO.C. _S I ARJ. .0 S_!*fiD.££X ._ _.. 

LBL» 

DI»=LUC STAR; DSI»7FILL; SIJslQC STAHJ 
__ JU1E s Vi._ 

8(IF Sc* M " THEN S I :*Sl + l ELSE 

BEGIN DSIsCHR; TALLY J *TALL Y*l ; END); 

SFTN UM is T ALLY j 



00O18000 
00018100 
Q0Ql6g-O 



jump out to lbd; 



00018300 
OOU18400 

..iiOJ?lfi5aQ. 
00018600 
00018700 

_0 00 .6flQ._- 



00018900 
00019000 
00019100 



END STREAM PROCEDURE SETNUM; 



%********************************************************************* 



2********************************************************** 

REAL STREAM PROCEDURE ATQkEn CIP TR* lURi EQR); VALUE EUR* 

X********************************** **************** ******** 
BEGIN LOCAL STRT,FIN; LABEL LOQP,NEXTADRS ,EXlT ; 

sii«iptr; sii«si+5j si.»sc; : __ _ 



*********** 



LOOP! IF 
STRTP 
_lf_S£_ 



SC-' 

si; 

MA. 



- THEN BEGIN SI»=SI+1> GO To LOOP; END; 
X SAVE STARTING- ADDRESS 
_?10_"„THE N IF S C L EQ-"9" THEN;_ 



00019200 
**00019300 

0.0019400 
**000 19500 

00019600 
Q0019700 



00019800 

00019900 

-00020000 



IF TOGGLE THEN X NUMERIC TOKEN 
BEGIN 

sn«si + i; tally ;» i; 



IF 



62CIF Sc GEO W C H THEN IF SC Lt^ "9" THEM; 

IF TOGGLE THEN BEGIN Sl««Sl+U TALLY » «TALLY+1 ; END ELSE JUMP OUT) 

GO T.O....NEXTADRSA - - _. .. _ 

END; I IF NUMERIC TOKEN 

SC » ALPHA THIN IF SC LEQ "9" THEN X ALPHANUMERIC TOKEN 

BEGIN ■■■■■'■.. 



00020100 
00020200 
00020300 
00020400 

;ooOiiObOO 

00-0.2.0600 
00020700 

00020600 
00020900 



vn« 



> — 



■i 

4 
61 



:h- 



J 

# 

3 
J 

) 



m 
ii 

12 

13 

14 

[is 
lie 

17 

|l8 

19 

|20 

[21 

B2 

23 

24 

»- 

?H| 

27 

28 

29 

30 

31 ~ 

32 

34 
3B 



36 

37" 
38 

39 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



52 
53 
54 
55 
56 



0002100C 

00021100 



IF. 



Sl»=SI+i; TALLYJsi; 

62(IF SC = ALPHA THEN IF SC LLU "9" THEN/ 

I F T n..GG,L£.._Til£Jl..aL(aJ_N,..!?..i.: gJSJ ±1__ J A LLYJ.g.1 ALlA+J.i_ifcLILXLJL£._^UM£....fliiI.l imQilioi 

END; X IF ALPHANUMERIC TOKEN 

SC._MEQ LEFTABRQW THEN X SP ECIAL CHA RACTER 

BEGIM TALLYJ = i; S I X » S I + 1 ; GO 10 NEXTAORS; lnd; 

sh-loc strt; du«loc eor; 
_ j.l..8 scsdc then go to exit; % enu 0f_ he co ho 

sh*strt; sn*sm; tally**!; — - - 

NEXTAORSI 
£IM5Sll„SlJsL0£._FlNJ_JliislPT_R^ DS:«wqs;_ % A g U _R g SJ_0 L_Nj_X L _HB._ 

sit=LOC strt; oh*tptr; DSt>wos; * address of tokln " * ' ~ 

EXlTl 

_A I OKEJl _ J. ■ TALL Y; at TOKEN SUE * ( ZERO IF EOR ) ' .._ 



**************"******ww»irwi»wwww»»wwKw»*ww»*«fit*n*w*Kr*ii rl ||^j 

RfAL ST re AM PR 0_C_Ep.UR£_LlXij.C;.A_N.c.Ii iMtiLLHAiLl.L. Y A _¥.£..____.... 

X ********************************** ****************** 

BEGIN LOCAL FLOK,CS; 

di.«*f; gs»=6LiT"0"; * reset f to__faj_se_ _ 

s 1 1 * f 1 n x ; s 1 » s si «■ £ ; i 1 a L oc o s ; oi 1*61 + 7 1 6s 7= c h'rT " " x~ "0 L d sue 
sitssc; flok»«si; % address of old string 



00021300 
00021400 
.-..0M21_.Q__ 
00021600 
00021700 

DU.0iJia.0i3.. 

00021900 
00022000 

-0.0D.22l 00 
OOO22266 
00022300 

Q002_2A0..P 

00022500 



END S TR E A m" P ROC E OUR EAT K E Hi 

* ********************************* * ******** * * * * * * * * o 2 2 6 

_ .^ — ^ ^ onfli»2.zflfl 

*******************000228QQ 

00022900 



. £l.l»HPJ_.Sl J«.&l+5.;_ S_I.Ls5C.1_Jl AftQ_t£.___Qf ___URK jftHIA 

TS(LlTSCANl«Si; di:*flok; 

IF OS SC s DC THEN JUMP OUT; 
_5I i =LI T S Q A N I . SliiSitli- I ALLY 1_LT.A L A_y_a.) } 

IF TOGGLE THEN X FOUND A MATCH 

BEGIN DIlsF; 01 |*DI + 7J DS J »Ll T" 1"; Sit* LITSCAN; END; 



0.0013.0.00. 

000231Q0 
00023200 

fi__L2i2Q_. 

00023400 
00023500 

... 00.0.216.00. 
00023700 
00023800 

— 000239.00 

00024000 
00024100 



__--.. _•..-., _■•,-_. j. T , , UMI-U* I 1 * Oil* Ci.1 

LIXSXANJ.s.Sl i ...51.1 sLCC...LlT___.AN.i..._QXiH„_li_.D_il j: 1*0.5 i 

LITSCANSaTALLY; 
END STREAM PROCEDURE LlTSCAiN; 
JL*£Jl* **.* * ■*_***. **Jk_».*_ *J[±****JUUL±*JL*JL^JL*±* **** ** **_* * * *_*..* * * * * * * * * ****** ***** 0Q02 42. 00 
BOOLEAN STREAM PROCEDURE TOKENSM ATCHCN.NOX 1,NdX2 ) ; " VALUE N; ~ ' ~00024300 

X************************************ # *** ##W ***^** # ^^ # ^^^ AA#A ^^ ### ^^ A# ^ i00 Q 2-4i!(0( j 

-- — BE-Q-iN. _ _._ __, ___ __ 000.24 5.00. 



...BE.SJN. 

label exit; 
local s*d#r; 

...S i.i.a ndx.1 ; „.„s.u_ss I + 4 ; u I : =ndx2; d I * = d_I+ _ i 
N(S*sSi; d*«di; 

IF SC*DC THEN % TOKEN LENGTHS ARE EQUAL. 
_fl£_l__ 



sn*si-i; di«*lcc r; dis = di+7; osischr; 
siiasc; DKsO; diuoi + u DI:=UC; 

IF R SC NEQ DC THEN JUMP OUT TO EXIT; % Tt]K £ NS NOT EUUAL, 

END ELSE JUMP OUT TO EXIT; 
Sl«»S; Sll»Sl + 8i DU»DJ DI»"DI + eM* 
.TALLY _»__!.;_ 



00024600 
00024700 
00024800 
00024900 
00025000 
0025100 



00025200 
00025300 
00025400 



00025500 
00025600 

TxTfP? KEN SM A TC H I a T ALlTT~ OOoffeOO" 

END OF TOKENSMATCHJ 00025900 

r***************************** * ************************* **0QQ26000 

•W2,W3»WQRKPTR/0SI/*REPINX'0VERFL0); 00026100 



X****** * * * **_* •*■ 



STREAM PROCEDURE REPLACELiT (Wl»k«> n a» nu««rrH* 0^ i*-» MEPl NX* OVERFLOW 00026100 
X****** **************** ********************* ************************ ****no026?00 
VALUE WL'_W2_ WJ___SjlJ : 00026 300 



COMMENT Nl IS ADDRESS OF WORKCO]* 

W2 IS ADDRESS OF W0BK[9] IF SEQUENTIAL FILE* OF rtORKUOJ IF DATA FILE 

W3 IS ADDRESS OF W0RK[20] 



WORKPTR CONTAINS ADDRESS OF NEXT CHARACTER IfTwoHITRECORD 
OSIZ IS SUE C NO, OF CHARACTERS ) IN QLO STRING 
END OF COMMENTJ • 



00026400 

00026500 

000 26600 

00026700" 

00026800 

00026900 



2 ( 

3 
4 
5< 

6 
7 

e( 

9 

10 

1.1 

12 

13 

14 ( 

15 

16 

.7 I 

18 

19 

20 % 

21 

22 

23 i 

24 

25 

26 f 

27 

28 

29 I 

30 

31 

« i 

33 
34 
35 i 

36 
37 

38 % 
39 
40 

41 I 
42 
43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



m 



■1 

1= 

I 3 

4 
5 
6 
7 
B 
9 

m 

ii i; 

|13." 



Hii 

17 

1 B | 

I- 
I-, 
I 

Ju 

122 

23 

24 

_5~ 

26 

27 

2B 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



46 
46 
47 
«8 
49 
50 
SI 
52 
53 
54 
55 
56 

V 



BE 
01 

SI 
Si 
SI 

si 

si 

si 

SI. 

LBLt 
IF 



GIN LOCAL NSlZ,Sv; LABEL L8L 
SsW2J DSl*8LlT5 ••; Sl» = W2> 
I=W0RKPTR; SI|sSI+3J Sjt = _C> 

.«si*osiz; oi 1 8»w 3 ; 2cdsT»4oc 

tsREPlNX; siiasi + a; DU*LQC 

i»sc; di««sv; qsisnsjz chr; 

:=W3; 2(DS«=46cHR)i % REPLAC 

i=loc sv; di j=wcrkptk; ds:=w 
t *H21 2 [I AQ LIE .S..C..5." '! Lathi 31 



S8=10 WOS; * BLANK UUT WORK AREA 
_Sv_! = Si; % L C A r I U iv 0FJ-L£_STRl_N6 __ 
HRJJ X SAVt REMAINDER OF RECORD 
NSU; DI»»DI+7; DStsCHKi X NEW SIZE 
SVJ."j) LL_X REPLACE 0LJ2_wIT_H NEW 
E REMAINDER QF HECORD 
DS> X AORS OF imLXT ChAK, TO BE SCANNED 

J_j_Sl±l_JE_L_LE JUMP_UUl_2_IjQ_JJiLaXL _ 



00027000 
00027100 

...QM2/20.Q 
00027300 
00027400 

OQ027500 
00027600 

00027700 

QO.P.27600 .. 



toggle then else x 
. 1 eg in oi i»qverflo ; 
d stream procedure replaceh 



OVERFLOW 

___s____a____l 



OCCURRED 
W OQO_1______J_!LL _E _N__i- 



00027900 

00028000 

JUlfiliLlJKL 



r**************************** 



EN 
X**** 
STREAM PROCEDURE R EPLACETQKENSC wl 

VALUE W1»W2*W3*NTKNS; 

COMMENT __.. . _ 

Wl IS ADDRESS OF WORK[OJ* 

W2 IS ADDRESS Of W0RK[9J IF SEQUENTIAL FILE* OF 

■W.3 IS ADORES.S .QF . .WO«X-C2-0-J.*-- _ - - 

W4 IS ASSIGNED ADDRESS OF FIRST CHARACTER FQLLO 
END OF COMMENT; 
- _B£G1N LflCAL_DS.ir«Al5I2j.SV.i— LAH£L_LiiL.i_ .._ 

DI»*W2; DS: = 8LIT" •♦; si: = W2; ds;=iowds; % ql 

SItsFlLiNX; NTKNSCSI JsSl+8)/ * SKIP TO END 
Sli.s5J.-4j _DX.J5.Lnx: CSU.;....£U.r=aI-±-_i -0-Sl. 3 XBIi.; ..* 

sn»sc; su»si+osiz; x point to i_t char, fo 

DI«»W3; 2(0S» S 40CHR); X SAVE PORTION Op RECO 
._a.L__R____lJm.-S I I * S T ♦ -Li-Oll * L Q C - N S 1 Zi_aU.gXLL--7. 

su=sc; x point tc actual replacement STRING 
DpsFlLlNX; DUsDl+5; on«oci % point to fir 

-_D.-__.-_._S ..U..J-.H_RJ.._JL..M Q V E REPL AC EME NT ST ri________£j_l_Ji 

SVI*Dli SltsLOC SV; DII*W4; DS:aWDS; X ADORE 

di»*sv; SI»*W3; 2Cds;»40Chr); x replace rema 
... _. Si l.f.U.2.1... 2 C 4Q.LIF . .5 C5_ M -._.^.-I]l£M_._iU=_i..L*l.__tLS£ . JU. 
LBL. 

IF TOGGLE THEN ELSE * OVERFLOW OCCURRED 

BEGIN DUsOV ERFLO; PS : a8Ll T"0 U 0Q0 0l"; EN 

END STREAM PROCEDURE REPLACETQKENS; 



t; 
************************************ 

»H2*h3»H4»KIlINX j|,tKNS>HEPINX»QVERFL 



************************************ 



00028200 
***00028300 

oj__Jioj_j_j_laa 



***000285QQ 
00026600 

O0Q.2&7-QJX- 



WORKTIO]/ IF OATA FILE 



WING replacement string 



ANK QUT WORK AREA 

F TOKEN GROUP 

_J_ £__4liiJl£-_uUI_TJ-l_£i\u- 

lLQwING EXlSTt STRING 

RU FOLLOWING EXIST.STR 

_ D 5_ _ a £ H H I % R_Ei__L-» S I 7, 

( in tsp record > 
st char, of exist, str 

_--J_,.R£. QRP 



SS AFTER REPLACEMENT 

INDER OF RECORD 

M.P. .0.U L_2_lfl_LBJjLU 



00028800 
00028900 
0-042- 90-00- 
00029100 
00029200 

000.29300. 

00029400 

00029500 

- -.000-2.9600.. 

00029700 
INQ00029800 

-J_0-J__--_-Q_l 

00030000 
ING00030100 
.0003020.0- 



00030300 
00030400 

_a__fiic_._i.CLo. 



o; 



00030600 
00030700 

_qj_oiq&___l 



00030900 

X***********************************************************************qqO 31000 
J___J_J_____URiL_^__lJ_Il 003 1100, 



x ************************************************* ******************* 
BEGIN 

JF NOT BRAAK THEN 

BEGIN 

IF OVERFLO THEN X SEND TRUNCATION MESSAGE 
..-, _ .BEGIN 



***00031200 

00031300 

0_Q_Q314.Q0 

.00031500 

00031600 

00031700 



IF LINSIZ GTR THEN % TERMINATE CURRENT LINE 
BEGIN 
THX0UT(0UTBUF[03»0M>; LlNSl-.sp; 



00031800 
00031900 
00032000 



end; 
truncmsg(8utbuf#sflg#lrec#in8ufc93); 

TWX0UT(0UTBUFro)#27*l); 



00032100 

00032200 

.000 32 300 



end; 
if prnt then 

BEGIN 

IF TEXT THEN 

BEGIN 

IF NOT SFLG THEN X DATA RECORDS 



00032400 
00032500 
00032600 
000 32700 
00032800 
00032900 



• • 



• r 





', 




• 


■1 

3 

4 








• 


5 
6 

7 








• 


8 
9 

10 








• 


11 
12 
13 








• 


14 
15 
16 








• 


17 




1 


8 





21 

22 

23 

24 

26 

26 

27 

28 

29 

JO 

31 

32 

3:) 

34 

36 

36 

37 

38 

39 

40 

41 

42 

43 

(4 

45 

46 

47 

« 



Ij7 



BEGIN 
REKNUM8ERC0UTBUF»LREC); 

T_WXJllLlUNBiit:i.QJ_iLJiOjaiJ 

END 
EISE 

bluim 

OUTFORMATCOUTBUF* INBUF); 
TrtXOUT(OUTBUFtO]#fll#l); 

... OLDJ 

END X IF TEXT 
ELSE 
BZ&UL 



TWX0UT(0uTBUFC0]»8#l); 



COUNT : "SETNUM C QUTBUF* iNbUF I 9 3 /lREcTsFLG, (PEHLI NE GTR l) » 
TWXOUT(OUTBUF[0]# COUNT > i" 100000" H 

lE-LUnaiZ- J. s I , I N S T L JLJLUJUlLL-fiJJELAO -LbXh. 

BEGIN 

TWXOUT(OUTBUFCO]*0,l)J UINSIZ «* OJ 
XNXU- _ __ 



00033000 
00033100 
-..QO..Q132.Q.Q 
00033300 
00033400 

flflflJaSQfl. 

00033600 
00033700 

JK).QJLi.a.Q.O 

00033900 
00034000 

-000 344^0- 



ENDJ % IF NUT TEXT; 
END; % IF PR\T 
E Ml I IF HOI ELfiA AKJ. 

end procedure print; 

MAL..SXBEAM . PRDCEDUM„JiLZ£lJmiiKli 



****************************** ************************ 



%*************** 

BEGIN 

S II ■. W.QRK i S Il.E5.L*iU_. flULlL .QC_ I S_IZjL1_J1L1 « Ol 1 4X. iiS i= i QHRf 

END STREAM PROCEDURE TSIZE; 

%*********************************** ******************************* A 



fl£AL-itH£ AM PROCEDURE. ^AEAjLCJUU^dFJUyuiiiEj . R I h * . R C , T * N , lull ». 1 f W U m2 P r L ft i 1 

%************************** ***************************************** 

COMMENT ROUTINE To TRANSLATE CODED SThI N G3 iu INPUT SAVE ARRAY 
ABLE FflRM FHR "fiFP, 4CP' PRrKiRAW. 



PROGRAM, 



INTO USEABLE FORM FOR, "REPlACE 
FORMAT OF INPUT ARRAY IS! 
WDtOKCUtOl] * 1 IF "PRINT" SPECIFIED 

AC. [tO la 1? ...» 01 3 . ."_ 1 _If . " PRINT TEXT" SPECIF_I£D 

WDl03tC2«i24] « TOTAL SUE ( IN CHARACTERS "f F ~Tn P'uf A K RATToCTA lT 

FORMAT OF INPUT ARRAY, STARTING AT KURD U 

EACH "ST RIN G" I_S FRECEEUED B Y A F qur CHARA CTER CUDE - 

CHARACTER 1 = 1 IF AN "EXISTING" STRING 

CHARACTER I * 2 IF A "REPLACEMENT" STRING 
CHARACTER i * 3 IF A SINGLE SEQUENCE NUMBER 



0003^200 
00034300 

aoiiMiLoa 

00034500 

00034600 
_._ -Q£ 03-4 ZOU 
00034800 
00034900 

- Qflflj5flfl.a_ 

00035100 
**00Q3520G 

flfliiaianfi.. 

**00035400 

00035500 

..-..flO-QiS-GilO. 

00035700 

00035800 
0XlCLi59JD.0_. . 

00036000 
00036100 
-._.iLQO.i.620J2.. 
00036300 
00036400 

0.0036500 

000366 00 
00036700 
00036800 



CHARACTER 
CHARACTER 
CHARACTER 



1 
2 
3 



4 IF A LOWER BOUNO FOH A SEQUENCE RANGE 
1 IF "FIRST" IS SPECIFIED 
1 IF " LITERA L" IS SPECIFIED 



00036900 
00037000 
00037100 



CHARACTER 4 ■ SIZE ( IN CHARACTERS ) OF THE STRING (OCTAL) 
CHARACTER 5 » FIRST CHARACTER OF THE STRING 

FORMAT OF OUTPUT ARRAY WQRDS» 

WD tC 17.01] = 1 IF" "FIRST" SPECIFIED 
WD. [23101] ■ 1 IF "LITERAL" SPECIFIED 
WD»[24» 06] = SIZE OF STRING OR TUKEN 



00037200 
00037300 
00037400 



00037500 
00037600 
00037700 



W0i[30U8] m ADDRESS OF STRING OR TOKEN 

THE ROUTINE - 

Igj-MSJT HE "EXISTI NG" STRINGS InTQ TUKENS C UNLESS "LITERAL" IS 

SPECIFIED ) AND PEACES THE SIZE AND LOCATION (ABSOL UTE ADDRESS 

nr rur m.r. tm rue T», al .T AHRAY ) info ARRAY "FI|\X", 

WHICH THE STRING IS DIVIDED IS 



00037800 
00037900 
00038000 



OF THE TOKEN IN THE INPUT 
THE N UMBER OF TOKENS INTO 



PASSEO BACK TO PARAMETER "TKN W > AND THE WORD INDEX (PARAMETER 
"NF» ) IS INCREMENTED BY 1 FOR EACH TOKEN PLACED IN "FINX". 
THE SIZE AND LOCATION OF THE "REPLACEMENT " STRIN GS ARE PLACED 



00038100 
00038200 
00036300 
"00038400 
00038500 
00038600 



00038700 
00038800 
00036900 



T< 



9 
10 



12 

13 



20 1 



24 

25 

26 ' 

27 

28 

29 i 

30 



34 
35 I 
36 
37 



40 

41 ' 
42 



m 



48 

49 



52 

53 < 



56 I 



I? 

|3 

U" 

5 
6 
I 
8 
9 

in 

,111 
\i\ 
,iij~ 
141 

16i 
17| 
18) 

«r 

20 

1-21 

f 3 

(24 
'KB 

pe 

I 27 
pa 

30 

31 
32 

:- 

35 

36 

37 ~ 

36 

39 

40 

41 

42 

43 

44 

45 

46 

«7 

«8 

49 

50 

51 

52 

53 

54 

55 

56 

V 



IN ARRAY 
BROKEN D 

BY 1 FOR 

WHEN A' S 
FLG * 1 
F_k6 _m 2 
NUM2 x 

NUM1 ■ 

..THE P.Q.SI 

BY THE A 

RE-ASSIG 

_lii£_..EJ?QC 



RINX 
OWN I 

EACH 
EQUEN 
FOR A 
FOR A 
CTAL 
CTAL 

TIQ.N 

DDRES 
NED T 
EDURE 



IN THE SAM 
NTQ TOKENS 

"8..EP.LA.£.£M.£ 

CE NUMBER I 

SINGLE SEQ 

SE«1!£N.C.L-" 



E MANNER ( i 
) AND THE WU 

NI."_SiLiLNJLi 

S ENCOUNTERE 
UENCE NUMBER 

fiAMfitr. 



XCEPT THAT T * « E V ARE NOT 

HO INDEX ("RC") INCREMENTED 



D- 



VALUE OF SE 
VALUE OF LO 

OF. _T.hi£_U£U 

S IN PAHAME 
HE ADDRESS 
■-LS-EXITED. 



QUENCE NUMBE 
WE« BOUNO FCl 
■L_SIRJLN. G TO - 
TER "AORS", 
OF THE NEXT 



r ( or upper bound for range ) 
h range c inhere applicable ), 

JBi_LXAMIiiEQ_±S.._S£iLClf.l£JL_ - 

this parameter is 
Input string when 



THE SIZE OF THE CURRENT STRING IS Kt 
TO ALLOW COMPARISON BETWEEN ThE IOTA 
-AMB-IHE-SJLZE. J1E-J HE S T R I NGS A I R F A fl Y 



TURNED TO "UNPAK" 
L SUE OF ThE INPUT 
PROCESSED 



00039000 
00039100 

0.QQ.19.2Q.Q. 

00039300 
00039400 

OOP 3 95.00 

00039600 
00039700 

. .5.0.0 39800 
00039900 
00040000 
0QQ40100- 



ARRAY 



00040200 
00040300 
00040400- 



END OF COMMENT; 

BEGIN LOCAL N* T 1 » T2* SVl* SV2> SV3> 
LABEL... C Y C L£-t XFXRx NLtMB RmExUJ. 

dij*flg; ds»s8lit h o"; % reset the 
susadrsj sn»si+5; si:=sc; svi* = 

S Li. = SJ.+.3I . Q.I.? =.LO.C. ..U/._...D.U_r..D.Lt .7J_..jj 

tally«»ti; unpakjstally; % size t 
sh*svi; if sc gtr "2** then go to 

IF AC*"!" THEN... . JL _M_ J!£iaiIIilfi^_ SJ. 

BEGIN SI:=NF; DI:=LOC N; 08l*ir, 
DI»*FInX; n(DM"DI + 8); DV: = Ql; * 

SI«*SVU Sll B SI*2J_lfL_SC.*"I" T 

BEGIN SlJ»si-l; DIi«Dl+2j OS » 

SV2»*Si; SIlsLOC SV2; SI l«S 



v,tk; 

"SEGUE 

si; x 

S ?.f.CHR 

«UNP 

NUMBR 

fiiiifil 



00040500 
00040600 

.ooo ao yoa. 



NCE NUMBER FLAG 
STARTING ADDRESS 

L_% S_L££ CF THIS STRIN G 

AK" ALSO 

; % field is a seoulnce no 



00040800 

00040900 

.jOflOJLi.Q-QjQ_ 



ljs; % 
Skip 

HEJN *_ 
»3 CHR 

1+5; d 



"OLD" string index word 

OVER PREVIOUS wpS* SAVE ADDRE 

-J1L I. ILfl AJJ.? CO DE 

; % "F1RST% M LITERAL" AND Sl-I 



Sl«3 
TALLY> «N; TALLYl«TA LLY+j J Nt*TALLY; % 



ChRj * ADDRESS OF 

Ah cRement index 



si*«loc n; di»=nf; ds»*wds; 

Si:»SV2; SllaSI+Ti; SV3*=SI 

■.LALLUrj,;-.iJUL=J all y_i_j&. Jim 



00041100 
00041200 

..O.QMllOO 

00041400 

S00041500 

.._aOii4l6.QD. ._ 
E00041700 
STRING 00041800 
Q-Q.QA190Q 



% TRA 
i % AD 
ERAL" 



NSFER TO 
DRESS OF 
STRING = 



EXTERNAL VARIABLE 
NEXT FIELD 
.i_JL£JiEJ^ 



00042000 

00042100 

_flflM22fl£. 



CYCLE« 



go to exit; 

end; % if "literal" 

x .break up into "tokens" 

s i * = s i + 2 ; 



I F NOT "LITER AL" 



SV2l*Si; % POINT TO ACTUAL STRING 
TALLYlsTi; % SKIP OVER BLANKS NEXT 



Sl«arSV2i _ 

TIC IF SC NEQ " » THEN JUMP OUT; SH-SI + 11 TALLY :sTALLY+63 ); 

Ti»»tally; sv2:«si; sv3i"SU 

sh« loc ti; si>ssU7; if sc« w o n then go to e xit; % end string 



00042300 
00042400 

_QHM2SflflL. 
00042600 
00042700 
00042600 



00042900 
00043000 
00043100 



tally»*tk; tallyj=tally+i; tki 

SIisSV2; IF SC=ALPHA THEN IF St 

_1 E G IN .1 ALL Y_lsfli_ _ __ 

TKIF SC LEQ "9" THEN ELSE 
IF SC « ALPHA THEN ELSE JUM 
_ -SIliL SI + l J TA L LY t*J AL LY * \)f 



=tally; % token 

LSS "0" ThEN * 

Jump "out; 
p out; 



cuunt* 

STARTS 



THIS 

WITH 



STRING 
A LETTE 



00043200 
R00043300 

QU0.4.14.Q.Q 
00043500 
00043600 
00043700 



XFERl 



t2{«tally; tally:*o; sv3*=b 

IF TOGGLE THEN T1»=TaLLY EL 
BE GIN TALLYUTi; T2CTALL 



sn«svi; sijbSi + i; dii»dv; 

DS««2CHR; % "FIRST" AND "LI 

.in «lq jl_ Tg; sn»si+7; psi«c. 



I; 00043800 

SE i ALL CHARACTERS USED IF TOGGLE 00043900 
Yt*TALLY + 63)/ Tlt = TALLY; END; 00044000 



sh*loc SV2; si: s si+b; osis 
simsva; sv2i«si; dvi*di; % 
tally««n; tallyj=tall y+ ^ n 
siiuloc n; oii«nf; dsi»wds; 
go to cyclij 
end % i f a . lftter s tr in g 



DU«DI + 2; 

TERAL" CODES 

HR; % TOKEN SIZE 



3 CHR; % ADDhESS OF TQKEN 

SAVE ADDRESSES 
•■TAJULY.A *-J*CREMJLNr I NOEX 

X TRANSFER TO EXTERNAL VARIABLE 



00044100 
00044200 
00044300 
00044400 

00044500 
00044$00_ 
00044700 
00044600 
00 0449 00 



54 
65 
56 ' 

57 



• • 



THEN i A DIGIT STRING 
Ld£N_JJJHfLi!iiLL _ 



; 

3 

4 
5 
6 

"'" 

8 

9 
10 
11 
1? 
13 
14 
IS 
16 
17 
18 
IS 
20 
21 
22 
23 
24 
25 
28 
27 
28 
29 
30 

31 ~ 
32 
3D 
34 
35 
36 

37 ~ 
38 



41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
61 
52 
53 
54 
55 
56 
57 



else: if sc leq "9" 

BEGIN TALLYtsOi 
_ TJ..( I F SC LSS "0 

IF SC GTR "9" THEN JUMP OUT' 

SI»«SI+l; TALLYJaTALLY+1); 
- J^l«LlALLY..LlALULlaLQJ._.SV.ll=.S_Li 

IF TOGGLE THEN * ALL CHARACTERS NOT US_U 
BEGIN TALLYisjl; U C TALLY : s TALL Y+63 ) i 
£k5£.JLU-LLAJUJCi „._ _._ ..._ _ , 



totally; END 



GO TO XFERi % TRANSFER TOKENS 
END IF A DIGIT STRING/ 
A "SPECIAL " CHA RACTER __ 



TALLYI"T1; TALLYJsTALLY+6i; T1»sTaLLY> * ONE CHARACTER TOKEN 

TALLYl*i; T2JSTALLY; Si:*SI*i; 5V3»«Si; 
_ GO TO XF £R; . 

END X IF AN "EXISTING" STRING " 
ELSE X A "REPLACEMENT" STRING 
__. BlGIN.SliiR5J_DJi»y3C.M.D s *"J«eSi ?L __W" ST RING INDEX WOR___ 

DUsRINx; N(DII«DI + 8); % SKIP OVER* PREVIOUS WORDS 

sn*svi; sii«si+3; di:*di+4; ds.schr; * string size 
_ s y_2 1; s j ; sii=l oc sv g; sp = s_£+ a t ds:s3 chR; it aodres s of string 

TaLLYS«N_ TALLYtaTALLY+lJ Nj*Fa~LLY; * INCREMENT INDEX 

si«»loc n; dh*rc; ds«*wds; % transfer to external variable 

. .5lJ_"Syei_lll«ilftIll_£Vlai£iLL_»_ADIlfi£.5S .Of _N_.XJ _F_l£kH 

go to exit; 

end; % if a "replacement" string 

-NUMRRi %.... A. SE QUFJ^C-E-AtlM B F R 

DIlsFLG; DSI»8LIT"00000001"; * SEQUENCE NUMBER FLAG 
IF Sc*"4" THEN % SEQUENCE "RANGE" SPECIFIED 

— BEOJjN .. DU«FlG? , Dll»Pl+7J DS.«LlT.»2"l * EOUE F DR "RANGE" 

SII«SI*3; DIlaLOC N; Qll»ol*7> OS;*CHR; % SUE Of FIELD 
DH'NUMi; DS» = N OCT* 
SH"SI*3J DI 1»L0C Hi UH'Dl*7 t pSi'CH HJ * M*E OF N EXT FIELQ 



00045000 
00045100 

QQ.M52.QQ 

00045300 
00045400 

___45SQ_ 

00045600 
0QU45700 

-0O-U.4_5.a0L0.. 

00045900 
00046000 

j___il_J__ 

00046200 
00046300 

Q_J__tQ.Q. 

00046500 
00046600 

_ 0fi0.46I.0_0_ 

00046800 

00046900 
00947000. 

00047100 
00047200 
Q-Q-OJI._0.Q_ 



tally«»unpak; tally«stally+4; tallyistally+n; unpakj^tally; 
di»*num2; ds»*n oct; sv3:ssi; go to exit; 

...._. __. MP ;_._* IF _RA_NG£"_SP_£C_1FJ£D 

SI:sSl+3; DI:=L0C Ki DI*sOI+>T 
DII5NUM2; DS:=N OCT; SV3»»SI; 

J_iIIiJ__!__^ 



00047400 
00047500 

.0.Q.Q.4Z6-Q-Q. 

00047700 
00047800 

QXlQ_-7..9QIL 

00048000 
00048100. 
AOO 48200 



bTs C H R }""% S lit "Li F F ilT D" 



Sll«LOC TK; DI**TKN; DS«*WdS; % TRANSFER T.KEN CQUNT 
END STREAM PROCEDURE UNPAK; 

JL_L* + .*.*.* **_.»* **** ** __ __, **** __ _ * *.* * * *_*__*** * *_* * _ * * *.* *_* * * ******* * * * *«»***»* 

ESP[0.i=0; DISKWAIT(1*ESP*30, COMMON); 

COMMON is ESPfOi; 

FILL OLD W IT H ESP[ 5 ] , ESPC 6 ] ; _ 



00048300 
00048400 
00048500 
00048606 
00048700 

_ fi_0_L_J_L 

00048900 
00049000 

+**0Q049l0O 



FILL NEW WITH ESft 33*E$P_ 43 ; 
SFLG t« ESPC7] NE« 8; % NOT TYPE DATA FILE 
__Ej_IZ_J___JLO__ BEAH lFkGJl 



00049200 
00049300 
00049400 



diskwait(i#esp*30#common); commonj=o; 

total j» tsize(esp); % total no, gf characters in input record 

ESPPTR l» ADDRESS(ESPri3 ,{ % S TARTING ADDRESS OF STINGS 
GRPCOUNT l» RC »■ NF |« PREvNF |« NRAnGES t* Qi * INITIALIZE 
WHILE TOTAL GTR DO X DECODE THE INPUT RECORD 
-- BEGIN TOTAL tm TOTAL ____________ DECREMENT TOTAL 



00049500 
00049600 
00049700 



00049800 

00049900 
00050000 



unpak cespptR»fndinx»nf#Repinx>hc*tkns*numi,num2*flg); 
if nf gtr prevnf then % an "existing" string found 
beg in if nf gtr 100 then % tog many tokens 



00050100 
00050200 
00050300 



BEGIN ERRMS6C0UTBUF*"TQQLQNG«); 
TWXOUT(OUTBUFC03*13»O); COMMON, (21 13 t* i; GO TO EXIT; 
END IF TOO MANY TOKENS; 



00050400 
00050500 
0005060 



00050700 
00050800 
00050900 



2< 

3 

4 

S< 

6 

7 



10 

11 I 

12 

13 

14 < 

15 

16 

17 I 

18 

19 

20 < 

21 

22 

23 I 

24 

25 

26 * 

27 

28 

29 I 

30 

31 

32 ' 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4, ( 

42 

43 

44 ' 

45 

46 

«i 

48 

49 

50 \ 

51 

52 

53 1 

54 

55 

56 ' 

57 



v.- 

r, 

3 



9 

r r 

,.,■ 

n 

Hi 

it; i 

Lll 
18 

19' 

■ilj 
ail 

f 4 - 

Jfil 

c- 

301 

f ,r 

32| 

SI 
134 1 

m 

36 

K 
38 

39 

4f) 

41| 

42 

43 

44 

45 

46 

47 

48 

p- 
49 

50 

51 

52 

53 

54 

55 

56 



:= GKPCUUNT + l'J 

JJ. hi mi 



GRPTKNSCGRPCOUM 

PREVNF !s NF; 

END I F AN_ IX I SIJRG 

IF FUG GTR THEN % SEQUENCE NuMBER(S) 

8EGIN NRANGES I* NRANGES ♦ \i 

IF NRANGES GTR_ MAXRANGES_ THEN * TOO 
BEGI N ERRMS6C OUTBUf » " foOMAN Y" ) i 
TWX0UTCQUTBUFC0]»13*0); CQMM0N.C2 
_.E N Q..JL t ... ...Iflfl_ MAM-..S£_<^ E h C £ N O ilB£.NSj,._. 

LBOUNDCNRANGES]t*UBOUNDtNRANGES3t«NUM2J 

IF FIG GTR 1 THEN LBOUNDC NRANGES J I *NUMl ; 

ENO; X IF SE QUENCE NUMB ER(S). 

IF RC GTR 62 THEN % TOO MANY "REPLACEMENT" STRINGS 

BEGIN ERRMSG(8UTBUF# ,, T00L0NG H J* 



TKKS; * TUKENS/GhQUP 

IN INPUT RECORD" 

M A NX. S E Q _y £ NCE N UMBE RS . 
: l3:«li GO To EXIT; 



% SEQ. RANGE 



OOOblOQO 

ooobiioa 

QM512.QQ.. 

00051300 

00051400 

00051500 

00051600 

00051700 

00051900 
00052000 
05 21 QJ3L 



TWXQUT(QUTBUF [C3,13jO ) ', 
END IF TOO MANY REPLACEMENT 
OF WHILE STATEMENT; 



C0MM0Mt[2»m»i; GO TQ EXIT; 



00052200 
00052300 
00052400 



strings; 

END 
LREC I* W0RKCQ3 »■ 0; _ _ _ 

wi i* ad6ress(work[o]"); 

W2 Is ADDRESS(W0RK[1C-REALCSFLG)J); 
W3 Is ADDRESS(WORKJgCl); 

PRNT Is B06lEAN(ESI»C6]. [11*13); * PRINT SPECIFICATION 

TE^T I* B0QLEAN(ESPC0].Cl7»m> * TfcXT OR S£Q. NUMB E RS 
RC.I»1I. X STARTING RAftfiE 
SEQCHK l* NRANGES GTR Of 
REAQINI 

R EM<0LQvlO#lNBuF[*lliSAVEEXlTJ; * GEl...NLxT...hE.C.GHR.. 

LREC l« LREC + li 

overflo is false; 

P 1 5JL1HE_.L" P ; ._ _ 

IF SEQCHK THEN % CHECK SEQUENCE NUMBERS 
BEGIN 

._.... _S£Q_ Jj* . I F SFLG 2H E1L.0 CJ C_P NV C I.N B U K t 9J ) EL.JJ E L.R E_C > 

WHILE SEQ GTR UBOUNDtRC] DO 
BEGIN RC «■ RC + H 

IF RC .GTR. NRAN.G£.S_..TMEN G.Q......CilP.l.T..O£.QEJ. , _. 

END WHILE STATEMENT; 
IF SEQ LSS LBOUNDCRCJ THEN GO TO WRITENEW/ % bKlP THIS RECURO 

EMU I-.IF ..S_EAUEN£E CHE CK _ 

M0VEW0R0S(RECSIZ>INBUF#W0RK); 

ENDWORD l» -i; 

FOR It*l STEP 1 UNTIL G RPCQ UNT 



hobkcrecsiz] is ech; % xfer tu work 

■JQ.Q-S.. CHECK ALL SUBSTITUTIONS 



00052500 
00052600 
000527QQ 
00052800 
00052900 

0.0.03.3.00.0. 

00053100 

00053200 

0fi0..5J3QQ 

00053400 
00053500 

.0.00.^3.6.00 
00053700 
00053800 
00053900 
00054000 

00054100 
0005420 
00054300 
00054400 
.000.5.450.0 
00054600 
00054700 



BEGIN 

WORKPTR «= 
STRTWORD_ts 
ENDWORD »s 
TOKENCOUNT 



00054900 
00055000 
00055 100 



Hi; % START OF RECORD 
-ENQWQHD ♦_!!._*_ L OCATION 



jln_fj^d.injl_.f:q.h_ group. 



ENDWORD ♦ GRPTKNSCHJ 
Is COLS is oJ X RESET 

IF B0QLEftNfFMDINXCSTRTW0R 01.t23H J) THEM Gfl Fl h Dll T* it f lTLRAj 

TOKENLOOPI 

IF TOKENLENGTH is aTQKeNCWORKPTH* T OKENPTR* W2 ) s 
GO TO E NDILQDP ; % FND pF RECO RD 



00055200 
00055300 
0005.54 DO 
00055500 
00055600 
00055 700 



THEN 



00055800 

00055900 

00056000 



FiLlNXCTOKENcOUNTJisTQKENPTR & T0KENLENGTHC24U2I63; % LOCATION 00056100 
TOKENCOUNT Is TOKENCOUNT +11 00056200 

IF TOKENCOUNT LSS g RPTKNSLH THEN G O TO TOKENLQOPj _ 00056 300 

IF T0KENSMATCH(TUKENC0uNT»FNDlNX[JJTRTW0RD]#FUlNX) THEN 00056400 
BEGIN X FOUND A MATCH 00056500 
REPLACET0K|NS(W^W2,W3 f W4,F I LINXf TOKENCOUNT, HEP I NXC I -ili_OVERFLQ)^ 00056600 
HQRKCRECSIZ] |> EOR; rtORKPTR I" N4f 00056700 
COMMON is COMMON ♦ U X NUMBER OF SUBSTITUTIONS 00056800 
PERLINE is PERLINE ♦ If % NUMBER IN THIS RECORD 00056900 



49 
50 ( 
51 
52 
53 I 
54 
55 
56 i 
57 



8 
10 
11 
12 
13 
14 
15 
16 
17 
18 
'1« 
.0 
21 
12 
12 
24 
25 
26 
27 
28 
29 
30 
31 
32 
1 13 

I;m 

15 

m 

37 ~ 
38 
39 
«0 



iNT; GU KRITENE 
tCORD 



42 
43 
44 
45 
♦6 
47 
48 
49 
50 
51 



52 
53 
54 
55 

56 

e. 



TOKENCOUNT :» C; * RESET 

IF B00LEAN(FNDINXCSTRTWQH0J.C1^U3) THEN GO ENDILOOP; % 

- If.... 0_VE.RE.Li]..J.R M J _liJ3i.i_J.lJ_lH..w.3...:LH£R __ 

BEGIN MOVEHORDS{RECSU#WORKMNBUF>; P« 
GO TO TOKENLOOPI % LOOK AT REMAINDER OF R 

END IF JMENS__MAtCH; _ 

TOKENCOUNT := TOKENCOUNT -11 
IF TOKENCOUNT GTR THEN % SHIFT LEFT 
MQVEWORDS( TOKENCOUNT* FILINXC13»F1L I MXE 3 ); 
GO TO TOKENLodP; % CONTINUE TO END OF RECORD 
FINOLITJ 

. COLSJ_E_FT l« REC1IZ x 8 * COLSl % CHA RACTERS 
OLDSIZE »* FNDINXCSTRTHI0RD3.C24I63; * LITERA 
IF COLSLEFT L s S OLOSIZE THEN GO TO ENOIlGOP; 

-LOSfiAN ... J.«. . CO-LSLE-EJ, -....Q LPSTZt jtU— „_- 

IF TOSCAN GTR 63 THEN TOSCAN Is 63; X 63 In 



FIRST 
HI ENDI 



±,EFT_ TQ_ SC_AN_ 

L STRING SIZE 

* TOO SMALL 



ONE BREATH 
TW0RD3#F0UND); 
£1U.J_J_ 



IF 



SCANNED »» LITSCANcTOSCAN#WORKPTR#FNDlNXtSTR 
I « .. C L-S-- + S C ANNED i % UP . IJ_. _5lRlli_lt. :.!£_.£ 

FOUND THEN 

BEGIN 

COMMON , s CO MMQN + 1; % TOTAL NO. O F Sb BST IT U T IONS 

PERLINE l» PERLINE + II * NO. FOR THIS LI 



NE 

XtI-13>0VERFLO) 

X TRU NCATIflN 
INT/ GQ WRITENE 
SIZE OF l\EW STrt 



I 



*; end; 

I i\ G 



GO 



REPLACELlT(Wl#W2»W3,WQRKl'T8/QLDSli:E,REPlN 
I F .. QyEBFJJl_QR.J__3__l___l___^l^ 

BEGIN MOvEwORDS(R£CSlZ#rtORK* INBUF); PR 
COLS »= COLS + REPINX[I-13,C24*6]J % ADO 

ttO.R.K.E8ECSU.J.IS-XORi-..-l_4.EJE^--^fiii.-lit... _ __ _ 

IF PERLINE GTR 71 THEN GO TO tNOROOPI 

IF B00LeANCFNdINXCSTRTW0Rd3,[17*U> THEN G". TO ENoILOOPI XfRST 

END IF F-QUAM— - . - _. 

TO findlit; 

ENDILOOP* 

EMD-I-.LQQPi. .-...- _.. 

IF PERLINE GTR TH£\ X RECQRO HAS BEEN ALTERED 
BEGIN M0VEW0RDS(RECSIZ/WQRK/INBUF3I 

-.....-IF ERNT THEN.. PRINT J ._ „..._ _ _..._ __ _.. _ 

END IF ALTERED; 
WRITENEWJ 

J*R.LTXCi_E_i_.lQ._ IJfcLBLUEJL* 111 

GO TO readin; 

COPYTOEOFJ 
Qfl_fi£filN __. __ _ 



00057000 
000^7100 
0.0 0$. 720.0. 
00057300 
00057400 
QQ.Q.515Q.Q 
00057600 
00057700 

00.057800 

b6057906 
00058000 
00,058100 
66058266 
00058300 

Q.OJ...5.a.a..Q.o 

00058500 
00058600 
AQQhAZML 

00058800 
00038900 
0_U.05.90.Q..Q... 
00059100 
00059200 
..Q.M3..93.QQ 
00059400 
00059500 

QOJ359600 
00059700 
00059800 

..jj.axi5-9*oa 

00060000 

00060100 

-O.aO-60200 



WRITECNEW/10,INBUFC*3); 
RFAD(OLD*iO/INBUF[*])[SAVEEXIT J* 
END UNTIL FAL SE! 



00060300 
00060400 
00.060500 
00060600 
00060700 
QQ060R0Q 
00060900 
00061000 
Q Q06 UOQ 



SAVEEXIT« 
CLOSECOLD)! 

TWXQUT(0UTBUF[ Q3*0»1 ); 

IF COMMON NEQ THEN LOCK(NE«**); 
NUMF0UND(OUTBuF#COMM0N)l T^XOUTCGUTbUF [03,37,1 ) 
EX lTt 



00061200 
00061300 
00061400 



00061500 
00061600 
00061700 



END OF PROGRAM, 
END;END. LAST 
GO TO I_N I TJ ATEI 



00061800 
00061900 
0062 000, 



CARO ON OCROING TAPE 



00062100 
99999999 
19289a 00 



LABEL 00O00O0OOPRINTEKO0W5130CC EX OB JEC J/Rl AU;F ILL SQURCEF I LEsSYMBOiVREPlACE; ENQ<- 



08JEC1 /READ 



2 
3 

4 

1 s ■ 



8 

I 9 

|m 
1 1 

i j. 

13 



i 1c ' 

;■'! 

IB 

19' 

;:u 

ft 

23 

:- 

P7 



30 1 
31 
32 
33 
84 
35 
36 

bs 

39 
40 
41 
42 
43 
44 
45 
46 
47 
4B 
49 
50 
51 
52 
53 
54 
55 
56 
57. 



